Option Explicit
Sub J_Sample010()
    Dim myCBar As CommandBar
    Dim i      As Long
    On Error Resume Next
    Application.CommandBars("FaceId").Delete
    On Error GoTo 0
    Set myCBar = Application.CommandBars.Add(Name:="FaceId")
    myCBar.Visible = False
    For i = 301 To 600		'wnܪƥ
        With myCBar.Controls.Add(Type:=1)
            .Caption = CStr(i)
            .Style = msoButtonIconAndCaptionBelow
            .FaceId = i
        End With
    Next
    'bOCwjp
    myCBar.Width = 600
    myCBar.Top = 50
    myCBar.Left = 50
    myCBar.Visible = True
    Set myCBar = Nothing	'
End Sub
